home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h4.d64 / Kgallery (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  84 lines
  1. 5 REM ********************************         KOALAPAINTER PICTURE GALLERY V1
  2. 10 REM MODULE #1, REQUIRES MODULE #2-          " U"
  3. 15 REM -COMMODORE 64 & KOALA PAD (TM)          BY ROGER D. BURGE, TPUG #2667
  4. 20 REM LONDON,ONTARIO, CANADA &                KOALA TECHNOLOGIES CORP, USA
  5. 25 REM REQUIRES "KOALA DISK MENU"              SYSTEM BY ROGER D. BURGE
  6. 30 REM SAVE AS "[203]GALLERY"                      ("[203]" IS A SHIFTED "K")
  7. 35 REM AUGUST, 1984                            FOR INFORMATION OR SUGGESTIONS-
  8. 40 REM CONTACT: R. D. BURGE                    ADDRESS AVAILABLE FROM TPUG
  9. 45 REM "KOALA PAD" IS A REG TRADE MARK         OF KOALA TECHNOLOGIES CORP.
  10. 50 REM ********************************
  11. 55 IFQTHEN295
  12. 60 GOSUB175:OPENF,G,F,"I0":D=PEEK(CP+K)+128
  13. 65 DIMT$(F1),TT$(F1):C=W:OPENG,G,G,":":INPUT#F,EN$
  14. 70 INPUT#G,DN$:IFEN$<>"00"THENCLOSEG:CLOSEF:A=18:GOTO130:YY=19
  15. 75 INPUT#G,T$(C):IFST=STHEN85
  16. 80 C=C+W:IFC<F1+KTHEN75
  17. 85 CLOSEG:CLOSEF:M=C-W:GOSUB155
  18. 90 PRINT"";:S$="                ":R$=""
  19. 95 FORC=ATOA+F:H=X*-(H=Z)-Z*(H=X):POKECP,H
  20. 100 PRINT""R$RIGHT$(STR$(C),K)" "MID$(T$(C),K)RIGHT$(S$,F-LEN(MID$(T$(C),K)))
  21. 105 NEXT:PRINTR$"[158]17[160]CHANGE DISKS   ":PRINTR$"[159]18 UPDATE GALLERY "
  22. 110 PRINTR$"[158]19 LEAVE GALLERY  "
  23. 115 YY=INT(PEEK(PY)/13.4210526):Y=G*YY+SS:IFY=SSTHENY=MX:YY=19
  24. 120 POKEV+W,Y:POKEV+X,Y:IF(PEEK(56321)=251)OR(PEEK(56321)=247)THENA=YY:GOTO130
  25. 125 GOTO115
  26. 130 IFA=18THENT$(.)=" U":GOTO250
  27. 135 IFA=17THENRUN
  28. 140 IFA=19THENT$(.)="[139]":GOTO250
  29. 145 IFT$(A)=""THENGOSUB230:GOTO115
  30. 150 GOTO260
  31. 155 PRINT"[155][160][160][160][160] [213][192][192][192][192][192][192][160]MENU STATUS: [192][192][192][192][192][192][201]     "
  32. 160 PRINT"     [202][192][146]"DN$"[155][192][203]     "
  33. 165 PRINT"PRESS BUTTON #2 TO RETURN FROM PICTURE"
  34. 170 PRINT"               OPTIONS:               ":RETURN
  35. 175 F=15:MX=234:G=8:K=2:S=66:F1=16:CP=646:CR=54272:H=3:X=3:Z=7
  36. 180 W=1:FORT=832TO853:READA:POKET,A:NEXT:FORT=854TO895:POKET,.:NEXT:V=53248
  37. 185 FORT=896TO919:READA:POKET,A:NEXT:FORT=920TO959:POKET,.:NEXT:POKE2041,14
  38. 190 FORT=49154TO49317:READA:POKET,A:NEXT:A=W
  39. 195 POKEV+32,.:SS=82:POKEV+33,W:PRINT"[155][147]":POKEV+33,.
  40. 200 PRINT"[142]      KOALAPAINTER PICTURE GALLERY[160] [160][160][160][160]";
  41. 205 FORT=1064TO1984STEP40:POKET,224:POKET+39,224:NEXT
  42. 210 PRINT"BY ROGER D. BURGE & KOALA TECHNOLOGIES";
  43. 215 FORT=CRTOCR+24:POKET,.:NEXT:POKE2040,13:POKEV+F1,.:POKEV+39,13
  44. 220 Y=MX:PY=54298:POKEV+X,Y:POKEV+40,13:POKEV+K,65
  45. 225 POKEV+23,.:POKEV+29,X:POKEV+28,.:POKEV,255:POKEV+W,Y:POKEV+21,X:RETURN
  46. 230 PRINT"[153] SELECTION UNAVAILABLE![160]":FORT=.TO1999:NEXT
  47. 235 PRINT""DN$:RETURN
  48. 240 DATA16,.,.,48,.,.,112,.,.,255,255,255,255,255,255,112,.,.,48,.,.,16
  49. 245 DATA.,.,8,.,.,12,.,.,14,255,255,255,255,255,255,.,.,14,.,.,12,.,.,8
  50. 250 POKEV+21,.:POKEV+29,.:PRINT"[146][144][147]L[207]"CHR$(34)T$(.)CHR$(34)",8"
  51. 255 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
  52. 260 Q=W:PRINT"[153] LOADING:               "
  53. 265 PRINT""R$MID$(T$(A),K):OPENF,G,F:OPENG,G,G,T$(A)
  54. 270 INPUT#F,EN$:IFEN$<>"00"THENER=W
  55. 275 CLOSEG:CLOSEF:IFER=.THEN290
  56. 280 PRINT" NO PICTURE-UPDATE MENU ":POKEV+32,13
  57. 285 FORT=.TO4999:NEXT:A=18:GOTO130
  58. 290 LOADT$(A),G,W:END
  59. 295 POKEV+21,.:SYS49154
  60. 300 WAIT56321,251,255
  61. 305 POKEV+17,PEEK(V+17)AND223
  62. 310 POKEV+22,PEEK(V+22)AND239:POKEV+24,(PEEK(V+24)AND240)OR4:PRINT"[147]":RUN
  63. 315 DATA173,17,208,41,239,141,17,208
  64. 320 DATA162,127,160,64,32,156,192,162
  65. 325 DATA4,160,.,32,161,192,162,131
  66. 330 DATA160,39,32,114,192,162,131,160
  67. 335 DATA40,32,156,192,162,216,160,.
  68. 340 DATA32,161,192,162,135,160,15,32
  69. 345 DATA114,192,173,16,135,141,33,208
  70. 350 DATA173,17,208,9,34,141,17,208
  71. 355 DATA173,22,208,41,223,9,16,141
  72. 360 DATA22,208,173,24,208,9,8,141
  73. 365 DATA24,208,162,96,160,.,32,156
  74. 370 DATA192,162,32,160,.,32,161,192
  75. 375 DATA162,127,160,63,32,114,192,173
  76. 380 DATA17,208,9,16,141,17,208,96
  77. 385 DATA142,1,192,140,.,192,160,.
  78. 390 DATA177,251,145,253,165,252,205,1
  79. 395 DATA192,208,8,165,251,205,.,192
  80. 400 DATA208,1,96,230,251,208,2,230
  81. 405 DATA252,230,253,208,227,230,254,76
  82. 410 DATA122,192,134,252,132,251,96,134
  83. 415 DATA254,132,253,96
  84.